home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 (Alt) / MACD 5.bin / workbench / tools / czesc_3 / parex / parexscripts / stripguide.pxs.prx < prev    next >
Encoding:
Text File  |  1994-01-16  |  4.0 KB  |  97 lines
  1. ; PARex v3.xx script: "PAREX:StripGUIDE.pxs"
  2. ; ~~~~~~~~~~~~~~~~~~~  ~~~~~~~~~~~~~~~~~~~~
  3. ; Update: 13-Nov-93
  4.  
  5. ; $VER: StripGUIDE.pxs 39.019 (13.11.93) PARex v3.xx script for StripGUIDE.
  6.  
  7. ; All commands upto AmigaGuide v3.0 (v39.11) are supported. New commands can be
  8. ; added in a jiffy!
  9.  
  10.  
  11. ; ## Preserve fake AmigaGuide commands ##
  12.  
  13.   REPL \\@ BY \\@                ; PARex interpretes "\\@" as "\@" !!
  14.  
  15. ; ## The following AmigaGuide commands should only occur once, and at the beginning! ##
  16.  
  17. { REPL  "@DATABASE # #\"{#?}#\"\n"
  18.         BY "Database: \"{}\"\n"
  19.         OR "Database: \"\e[1m{}\e[0m\"\n" WHEN bold
  20.         CONTEXT                  ; remember the name after the command!
  21.         TIMES 1 }                ; the @DATABASE command only occurs once, so there's
  22.                                  ; no need to search for it again (speeds up searching)
  23. ; STRIP @DATABASE TO \n TIMES 1  ; this commands discards the DATABASE command (remove
  24.                                  ; previous line and remove the first ";" ot this line
  25.                                  ; to use this command
  26.  
  27. { REPL  "@MASTER # #\"{#?}#\"\n"
  28.         BY "MasterDoc: \"{}\"\n"
  29.         OR "MasterDoc: \"\e[1m{}\e[0m\"\n" WHEN bold
  30.         CONTEXT
  31.         TIMES 1 }
  32. ; STRIP @MASTER TO \n TIMES 1    ; completely discards this line (remove previous line
  33.                                  ; and un-comment this line to use)
  34.  
  35. { REPL  "@AUTHOR # #\"{#?}#\"\n"
  36.         BY "Author: \"{}\"\n"
  37.         OR "Author: \"\e[1m{}\e[0m\"\n" WHEN bold
  38.         CONTEXT
  39.         TIMES 1 }
  40. ; STRIP @AUTHOR TO \n TIMES 1    ; completely discards this line (remove previous line
  41.                                  ; and un-comment this line to use)
  42.  
  43. { REPL  "@(C) # #\"{#?}#\"\n"
  44.         BY "©: \"{}\"\n"
  45.         OR "©: \"\e[1m{}\e[0m\"\n" WHEN bold
  46.         CONTEXT
  47.         TIMES 1 }
  48. ; STRIP @(C) TO \n TIMES 1       ; completely discards this line (remove previous line
  49.                                  ; and un-comment this line to use)
  50.  
  51. { REPL  "@$VER: # #\"{#?}#\"\n"
  52.         BY "$VER: \"{}\"\n"
  53.         OR "$VER: \"\e[1m{}\e[0m\"\n" WHEN bold
  54.         CONTEXT
  55.         TIMES 1 }
  56. ; STRIP @$VER:    TO \n TIMES 1  ; completely discards this line (remove previous line
  57.                                  ; and un-comment this line to use)
  58.  
  59.   STRIP @WORDWRAP TO \n TIMES 1  ; ...
  60.  
  61. ; ## The following AmigaGuide commands refer to the manner in which the text is shown. ##
  62. ; ## These commands are only supported with AmigaGuide v3.x and later! ##
  63.  
  64.   REPL  @{b}              BY \e[1m       OR "" WHEN plaintext
  65.   REPL  @{ub}             BY \e[0m       OR "" WHEN plaintext
  66.   REPL  @{i}              BY \e[3m       OR "" WHEN plaintext
  67.   REPL  @{ui}             BY \e[0m       OR "" WHEN plaintext
  68.   REPL  @{u}              BY \e[4m       OR "" WHEN plaintext
  69.   REPL  @{uu}             BY \e[0m       OR "" WHEN plaintext
  70.   REPL  "@{fg text}"      BY \e[31m      OR "" WHEN plaintext
  71.   REPL  "@{fg shine}"     BY \e[32m      OR "" WHEN plaintext
  72.   REPL  "@{fg shadow}"    BY \e[6\"z     OR "" WHEN plaintext
  73.   REPL  "@{fg fill}"      BY \e[33m      OR "" WHEN plaintext
  74.   REPL  "@{fg filltext}"  BY \e[31m      OR "" WHEN plaintext
  75.   REPL  "@{fg back}"      BY \e[30m      OR "" WHEN plaintext
  76.   REPL  "@{fg highlight}" BY \e[32m      OR "" WHEN plaintext
  77.   REPL  "@{bg text}"      BY \e[41m      OR "" WHEN plaintext
  78.   REPL  "@{bg shine}"     BY \e[42m      OR "" WHEN plaintext
  79.   REPL  "@{bg shadow}"    BY \e[6"z      OR "" WHEN plaintext
  80.   REPL  "@{bg fill}"      BY \e[43m      OR "" WHEN plaintext
  81.   REPL  "@{bg filltext}"  BY \e[41m      OR "" WHEN plaintext
  82.   REPL  "@{bg back}"      BY \e[40m      OR "" WHEN plaintext
  83.   REPL  "@{bg highlight}" BY \e[42m      OR "" WHEN plaintext
  84.  
  85. ; ## AmigaGuide commands that we can completely discard since they don't carry any info! ##
  86.  
  87.   STRIP @REM      TO \n          ; catches both @REM and @REMARK !
  88.  
  89.   STRIP @ENDNODE  TO \n          ; discards this command
  90.  
  91.   STRIP @FONT     TO \n          ; ...
  92.  
  93.   STRIP @INDEX    TO \n          ; ...
  94.  
  95.   STRIP @HELP     TO \n          ; ...
  96.  
  97.   STRIP @KEYWORDS TO \n